home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0920.ZIP / STDERR.ARC / STDERR.PAS < prev   
Pascal/Delphi Source File  |  1987-10-27  |  716b  |  34 lines
  1. {$R-,S-,I-,D-,T-,F-,V-,B-,N-}
  2.  
  3. unit StdErr;
  4.  
  5. { A unit for accessing the standard error device.
  6.  
  7.   Version 1.0 -  10/26/1987 - First general release
  8.  
  9.   Scott Bussinger
  10.   Professional Practice Systems
  11.   110 South 131st Street
  12.   Tacoma, WA  98444
  13.   (206)531-8944
  14.   Compuserve 72247,2671
  15.  
  16.   Thanks to Brian Foley for this beautifully simple approach to accessing the
  17.   standard error device. }
  18.  
  19.  
  20. interface
  21.  
  22. var Err: text;
  23.  
  24.  
  25. implementation
  26.  
  27. var ErrHandle: word absolute Err;
  28.  
  29. begin
  30. assign(Err,'');                                  { Attach to the standard output device }
  31. rewrite(Err);
  32. ErrHandle := 2                                   { Change handle to the standard error device }
  33. end.
  34.